home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 010 / games.arc / GRAPH08.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1980-01-01  |  384 b   |  17 lines
  1. 100  '******************************
  2. 110  '**         GRAPH08          **
  3. 120  '******************************
  4. 130  '
  5. 140  SCREEN 1:CLS
  6. 150  LINE (317,150)-(3,150)
  7. 160  FOR A = 3 TO 317
  8. 170  X = ( A - 160 ) * 0.1
  9. 180  IF X = 0 THEN X = 0.1
  10. 190  LINE -(A,150 - 100 * SIN(X)/X)
  11. 200  NEXT
  12. 210  FOR A = 3 TO 317
  13. 220  X = ( A - 160 ) * 0.1
  14. 230  IF X = 0 THEN X = 0.1
  15. 240  LINE (A,150)-(A,150 - 100 * SIN(X)/X)
  16. 250  NEXT
  17.